home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v11n02 / quick2.wfw < prev    next >
Encoding:
Text File  |  1991-12-31  |  823 b   |  33 lines
  1. WORDSTAR QUICK KEYS FOR WINWORD 2.0 
  2.  
  3. Sub MAIN
  4. Begin Dialog UserDialog 411, 150, "Quick Menu"
  5.     PushButton 260, 73, 98, 22, "&RTop of doc"
  6.     PushButton 261, 125, 108, 22, "&CEnd of Doc"
  7.     PushButton 95, 7, 88, 21, "&Previous"
  8.     PushButton 13, 98, 103, 22, "&SLeft of Line"
  9.     PushButton 133, 98, 114, 22, "&DRight of Line"
  10.     PushButton 90, 73, 112, 21, "&ETop of Screen"
  11.     PushButton 82, 125, 130, 21, "&XBottom of Screen"
  12.     CancelButton 350, 2, 59, 22
  13. End Dialog
  14. Dim QuickMenu As UserDialog
  15. Button = Dialog(QuickMenu)
  16.     If Button = 1 Then
  17.         StartOfDocument
  18.     ElseIf Button  = 2 Then
  19.         EndOfDocument
  20.     ElseIf Button = 3 Then
  21.         GoBack
  22.     ElseIf Button = 4 Then
  23.         StartOfLine
  24.     ElseIf Button = 5 Then
  25.         EndOfLine
  26.     ElseIf Button = 6 Then
  27.         StartOfWindow
  28.     ElseIf Button = 7 Then
  29.         EndOfWindow
  30. End If
  31. End Sub
  32.  
  33.